SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCRENO_CLIE_I02]    
/*-------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                --*/    
/*---Cliente              : OFISIS                 --*/    
/*---Sistema              : Tesoreria                  --*/    
/*---M÷dulo               : Empresa                    --*/    
/*---Programa             : Grabaci÷n Documentos       --*/    
/*---                       Generadas x Letras         --*/    
/*---                       por Renovaci¸n             --*/    
/*---       CTAS POR COBRAR            --*/      
/*---Script               : tcreno_clie2.sql           --*/    
/*---Nombre SP            : SP_TCRENO_CLIE_I02         --*/    
/*---Desarrollado por     : Eduardo Vivar Pomiano      --*/    
/*---Fecha Creaci÷n       : 01/02/2000                 --*/    
/*---Base Datos           : Microsoft Sql Server       --*/    
/*---Versi÷n              : 7.0                        --*/    
/*---Invoca a SP          :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Denis Villacr's            --*/    
/*---Fecha Modificaci÷n   : 07/07/2000                 --*/     
/*---Detalle Modificaci÷n : Select a TTTIES_DOCU para  --*/    
/*---                       el Update del CO_ESTA_DOCU --*/    
/*-------------------------------------------------------*/    
  
/*-------------------------------------------------------*/      
/*---Modificado 2 por     : Maribel Julca Rodriguez      --*/      
/*---Fecha Modificaci©n   : 20/04/2005                   --*/       
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/      
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/    
/*---Comentarios                                       --*/    
/*---                                                  --*/    
/*---                                                  --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Drop Proc SP_TCRENO_CLIE_I02                      --*/    
/*---Grant all on SP_TCRENO_CLIE_I02 to public         --*/     
/*---SP_TCRENO_CLIE_I02    '99','SA', 'LET', 'LETR','00000001', 1                             --*/    
/*-------------------------------------------------------*/    
 @ISCO_EMPR       TD_VC_002,     
 @ISCO_USUA_MODI  TD_VC_008_USUA,    
 @ISCO_CLIE    TD_VC_020,    
 @ISCO_UNID_CONC  TD_VC_003,    
 @IDFE_RENO   TD_DT_001,    
 @ISCO_TIPO_DOCU  TD_VC_003,    
 @ISNU_DOCU_CLIE  TD_VC_020,    
 @ISNU_RENO       TD_VC_008,    
 @INNU_SECU_RENO  TD_IN_001,    
 @INIM_DOCU    TD_NU_016_004,    
 @INIM_SALD_DOCU  TD_NU_016_004,    
 @INIM_SALD_CONV  TD_NU_016_004,    
 @INIM_RENO_MREN  TD_NU_016_004,    
 @INIM_RENO_MDOC  TD_NU_016_004,    
 @ISCO_ESTA_ORIG  TD_VC_003  
 As  
Declare    
   @OSTI_DOCU TD_VC_003,    
   @VSCO_ESTA_DOCU TD_VC_003,    
   @VNNU_SECU   TD_IN_001,    
   @VSST_CIER_DOCU TD_VC_001    
    
    
 Begin Tran SP_TCRENO_CLIE_I02    
    
   If @INIM_SALD_DOCU > @INIM_RENO_MDOC    
      Select @VSST_CIER_DOCU = 'N'    
   Else    
      Select @VSST_CIER_DOCU = 'S'    
    
   Insert Into  TDRENO_CLIE (CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_RENO, FE_RENO, NU_SECU, NU_ORDE_LETR,     
  NU_LETR_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, IM_DOCU, IM_SALD_DOCU,    
  IM_SALD_CONV, IM_RENO_MREN, IM_RENO_MDOC, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI,     
  CO_ESTA_ORIG, ST_CIER_DOCU, TI_SITU)    
   Values ( @ISCO_EMPR, @ISCO_UNID_CONC, @ISCO_CLIE, @ISNU_RENO, @IDFE_RENO, @INNU_SECU_RENO, NULL, NULL,     
  @ISCO_TIPO_DOCU, @ISNU_DOCU_CLIE, @INIM_DOCU, @INIM_SALD_DOCU,    
  @INIM_SALD_CONV, @INIM_RENO_MREN, @INIM_RENO_MDOC, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE(),   
  @ISCO_ESTA_ORIG, @VSST_CIER_DOCU, 'ACT')    
    
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
      End        
    
    
   Exec SP_TTDOCU_CNTB_Q01 6, @OSTI_DOCU OUTPUT    
    
    
   Select @VSCO_ESTA_DOCU = CO_ESTA_DOCU     
   From   TTTIES_DOCU    
   Where  ST_ESDO_0004 = 'S'    
    
   IF @INIM_SALD_DOCU > @INIM_RENO_MDOC    
    SELECT @VSCO_ESTA_DOCU = @ISCO_ESTA_ORIG    
    
   If @ISCO_TIPO_DOCU != @OSTI_DOCU    
      Begin    
        Update  TMDOCU_CLIE     
 Set  CO_ESTA_DOCU =  @VSCO_ESTA_DOCU,    
      NU_RENO = @ISNU_RENO,    
      IM_PAGA = IM_PAGA + ISNULL(@INIM_RENO_MDOC,0),    
             CO_USUA_MODI = @ISCO_USUA_MODI,     
      FE_USUA_MODI = Getdate()    
        Where  CO_EMPR = @ISCO_EMPR     
         And CO_TIPO_DOCU = @ISCO_TIPO_DOCU     
         And NU_DOCU_CLIE = @ISNU_DOCU_CLIE    
    
        If @@error <> 0    
           Begin    
             Rollback tran    
             Return    
           End        
   End    
   Else    
     Begin    
 IF @INIM_SALD_DOCU > @INIM_RENO_MDOC    
        SELECT @VSCO_ESTA_DOCU = @ISCO_ESTA_ORIG    
    
       Update  TMLETR_CLIE     
       Set  CO_ESTA_DOCU =  @VSCO_ESTA_DOCU,     
     NU_RENO = @ISNU_RENO,    
     IM_PAGA = IM_PAGA + ISNULL(@INIM_RENO_MDOC,0),    
            CO_USUA_MODI = @ISCO_USUA_MODI,     
     FE_USUA_MODI = Getdate()    
       Where  CO_EMPR = @ISCO_EMPR     
         And NU_LETR_CLIE = @ISNU_DOCU_CLIE    
    
       If @@error <> 0    
          Begin    
            Rollback tran    
            Return    
          End        
    
      Exec SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU OUTPUT    
    
      Select @VNNU_SECU = ISNULL(Max(NU_SECU),0) + 1    
      From   TDKARD_DOCU    
      Where  CO_EMPR = @ISCO_EMPR    
    
      Insert Into TDKARD_DOCU (CO_EMPR, NU_SECU,CO_TIPO_DOCU, NU_DOCU_CLIE, CO_CLIE, CO_ESTA_ACTU,    
                           CO_ESTA_DOCU, NU_CORR_MODI, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )    
      Values ( @ISCO_EMPR, @VNNU_SECU , @OSTI_DOCU, @ISNU_DOCU_CLIE, @ISCO_CLIE,    
       @VSCO_ESTA_DOCU, @ISCO_ESTA_ORIG, @VNNU_SECU, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )      
    
      If @@error <> 0    
         Begin    
            Rollback tran    
            Return    
         End        
    
 End    
    
Commit Tran    
    
/*------------------------- Fin ------------------------------*/


GO
